home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis390.d64 / stufe 1 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  3KB  |  109 lines
  1. 5 IFA=1THENGOTO25
  2. 10 IFA=2THENGOTO27
  3. 20 A=1:LOAD"ZUSATZ",8,1
  4. 25 A=2:LOAD"MUSIC1",8,1
  5. 27 GOSUB3000:REM"[141][145]27 CLR:RESTORE:WAIT2030,34
  6. 30 [159]1,8,2,"NAME":[132]1,N$:[132]1,C:[160]1:[158]828,81,159:[151]33000,2
  7. 40 [158]828,1:[153]"LOAD    (null) T U F E     1"
  8. 50 [153]"    [CLOSEF1 ]  PEEKONUSSPIEL"
  9. 60 [153]"    CONT[CLOSEF3 ] LEFT$IGH-(null)CORE"
  10. 70 [153]"    OPEN[ F5 ]CLOSE(null)UR (null)TUFE 2"
  11. 80 [153]"    [ F7 ] ATNBBRUCH UND INS VALNDMENUE"
  12. 90 [161]A$:[139]A$[179][177][199](133)[175]A$[179][177][199](134)[175]A$[179][177][199](135)[175]A$[179][177][199](136)[167]90
  13. 100 [139]A$[178][199](133)[167][137]140
  14. 110 [139]A$[178][199](134)[167][137]760
  15. 120 [139]A$[178][199](135)[167][137]810
  16. 130 [139]A$[178][199](136)[167][137]840
  17. 140 [153]"LOADOPENPEEKONUSSPIEL (null)TUFE 1"
  18. 150 [153]"------------------"
  19. 160 [153]"STR$U BEKOMMST GLEICH 10X EINE (null)EIHE VON"
  20. 170 [153]"PRINT(null)REUZEN (#) AUF DEN PEEKILDSCHIRM."
  21. 180 [153]"VALS SIND MAX. 80 (null)EICHEN, UND STR$EINE"
  22. 190 [153]"PRINTATNUFGABE IST ES NUN, INNERHALB VON"
  23. 200 [153]"3 (null)EKUNDEN ZU SCHAETZEN, WIEVIELE"
  24. 210 [153]"PRINT(null)REUZE ES SIND. STR$EINE (null)UNKTZAHL"
  25. 220 [153]"BETRAEGT JEWEILS 15 ABZUEGLICH DER"
  26. 230 [153]"PRINT(null)AHL, DIE STR$U DANEBEN GETIPPT HAST. STR$AS"
  27. 240 [153]"BEDEUTET, WENN STR$U STR$ICH UM MEHR ALS 15"
  28. 250 [153]"PRINTVERTIPPST, BEKOMMST STR$U GAR KEINE (null)UNKTE"
  29. 260 [153]"MEHR.         (null)ETURN WAIT"
  30. 270 [161]A$:[139]A$[179][177][199](13)[167][137]270
  31. 280 [129]N[178]1[164]10:[153]:[130]
  32. 290 [153]"SYSPEEKEACHTE, DASS STR$U IMMER ZWEI (null)IFFERN"
  33. 300 [153]"FOREINGEBEN MUSST, BEI EINER (null)AHL UNTER"
  34. 310 [153]"SYS10 ALSO MIT (null)ULL ( Z.PEEK. 05 )."
  35. 320 [153]"FOR(null)ENN STR$U STR$IR LAENGER ALS 3 (null)EKUNDEN (null)EIT"
  36. 330 [153]"SYSLAESST, SIND DIE (null)UNKTE WEG."
  37. 332 [153]"FOR(null)OCH EINEN KLEINEN (null)IP: EINE PEEKILD-"
  38. 333 [153]"SYSSCHIRMZEILE SIND 40 (null)EICHEN."
  39. 340 [153]"LIST(null)ENN STR$U JETZT CLOSE(null)ETURN WAIT DRUECKST, DANN"
  40. 350 [153]"GEHT'S LOS, ABER ATNCHTUNG...ETWAS MIT"
  41. 360 [153]"LIST(null)EMPO !!!"
  42. 370 [161]A$:[139]A$[179][177][199](13)[167][137]370
  43. 380 [153]"LOADCONT":P[178]0
  44. 390 [129]M[178]1[164]10:[153]"LOADCLR(null)ERSUCH:";M;"":[129]N[178]1[164]1000:[130]:A[178][181]([187](0)[172]80)[170]1
  45. 400 [129]N[178]1[164]A:[153]"#";:[130]:TI$[178]"000000"
  46. 410 [153]:[153]"FOR.."
  47. 420 [161]A$:[139]A$[179][177]""[167][137]430
  48. 425 [139][197](TI$)[177]2[167][137]550
  49. 427 [137]420
  50. 430 [139][198](A$)[179]48[176][198](A$)[177]57[167][137]420
  51. 440 [153]"ON";A$;:B[178]10[172][197](A$)
  52. 450 [161]A$:[139]A$[179][177]""[167][137]480
  53. 460 [139][197](TI$)[177]2[167][137]550
  54. 470 [137]450
  55. 480 [139][198](A$)[179]48[176][198](A$)[177]57[167][137]450
  56. 490 [153]A$:B[178]B[170][197](A$)
  57. 500 [153]"    CHR$ETIPPT:";B
  58. 510 [153]"   VALS WAREN:";A
  59. 515 [139]B[177]A[167]S[178]15[171](B[171]A):[139]S[179]0[167]S[178]0
  60. 516 [139]A[177]B[167]S[178]15[171](A[171]B):[139]S[179]0[167]S[178]0
  61. 517 [139]A[178]B[167]S[178]15
  62. 518 P[178]P[170]S
  63. 519 [153]"   (null)UNKTE:";S
  64. 520 [153]" RIGHT$NSGESAMT:";P
  65. 530 [129]N[178]1[164]1500:[130]N,M
  66. 540 [137]570
  67. 550 [153]"FOR3 (null)EKUNDEN VORBEI !"
  68. 560 S[178]0:[137]518
  69. 570 [153]"LOAD(null)TAND NACH 10 (null)ERSUCHEN:"
  70. 580 [153]"(null)UNKTZAHL:";P
  71. 590 [153]"(null)AL SEHEN, OB DAS EIN (null)LATZ IN DIE"
  72. 600 [153]"LEFT$IGH-(null)CORE BRINGT..."
  73. 610 [158]828,0:[159]1,8,2,"1-HIGH"
  74. 620 [129]N[178]1[164]9:[132]1,B$(N):[132]1,B(N):[130]:[160]1
  75. 630 [139]P[179]B(9)[167][137]740
  76. 640 [153]"MID$A, STR$U BIST IN DER LEFT$IGHSCORE, MOMENT..."
  77. 650 [129]N[178]9[164]1[169][171]1
  78. 660 [139]P[177]B(N)[167]B(N[170]1)[178]B(N):B$(N[170]1)[178]B$(N):B$(N)[178]N$:B(N)[178]P
  79. 670 [130]
  80. 680 [153]"LOADCLR   (null)TUFE 1 ... LEFT$IGH-(null)CORE"
  81. 690 [129]N[178]1[164]9:[153]B$(N);[163]23);B(N):[130]
  82. 700 [159]1,8,15,"S:1-HIGH":[160]1
  83. 710 [159]1,8,2,"1-HIGH,S,W"
  84. 720 [129]N[178]1[164]9:[152]1,B$(N):[152]1,B(N):[130]
  85. 730 [160]1:[137]40
  86. 740 [153]"(null)EIN, LEIDER NICHT. (null)UTTU NOCH UEBEN !"
  87. 750 [129]N[178]1[164]1000:[130]:[137]40
  88. 760 [158]828,0:[153]"LOADCLR   (null)TUFE 1 ... LEFT$IGH-(null)CORESYS"
  89. 765 [159]1,8,2,"1-HIGH":[129]N[178]1[164]9:[132]1,B$(N):[132]1,B(N):[130]:[160]1
  90. 770 [129]N[178]1[164]9:[153]B$(N);[163]23);B(N):[130]
  91. 780 [153]" (null)ETURN WAIT":[158]828,1
  92. 790 [161]A$:[139]A$[179][177][199](13)[167][137]790
  93. 800 [137]40
  94. 810 [153]"LOADSTOPLOAD";[199](34);"ZWISCHENSTUFE";[199](34);",8":[158]828,0
  95. 820 [153]"RUN":[151]631,19:[151]632,13:[151]633,13:[151]198,3
  96. 830 [144]
  97. 840 [153]"LOADOPEN(null)ILLST STR$U WIRKLICH INS VALNDMENUE ?"
  98. 850 [153]" ( MID$ / (null) )"
  99. 860 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167][137]860
  100. 870 [139]A$[178]"N"[167][137]40
  101. 875 [158]828,0:[153]"LOAD":[159]1,8,2,"NAME,S,A":[152]1,"LOSE":[160]1
  102. 880 [153]"LOADSTOPLOAD";[199](34);"ENDMENUE";[199](34);",8"
  103. 890 [153]"RUN":[151]631,19:[151]632,13:[151]633,13:[151]198,3
  104. 3000 [159]1,8,2,"DATA":[143]"GOSUBON3000 POKE54781,12+C:FORN=1TO1024TO2023:NEXT
  105. 3010 INPUT#1,A$:REM"[141][145]3010 POKEN,N-1:NEXTN:A=PEEK(56320)
  106. 3020 [139]A$[179][177]"GUT"[167][158]64738:[143]"GOSUBON3020 IFD<>0ORPEEK(56320)=127THEND=C
  107. 3030 CLOSE1:RETURN:REM"[141][145]3030 IFPEEK(56392)=124THENGOTO3000
  108. 3040 [142]
  109.